<?php
#
#
# Copyright TEDECO, 2009. http://tedeco.fi.upm.es
#
# This file is part of kumenya.
#
# Kumenya is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# Kumenya is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
#
#
#
?>
<?php
	include("../commons/classes.php");
	include("../commons/www.php");
	include(Action . "TrialBalanceBalanceResult.php");

	Interfaz::Header(_("Trial balance") . " " . _("Result"));

	Interfaz::OpenBody(FALSE);

if ($result) {
	if ($openFile)
		Interfaz::OpenFile($link);

	Interfaz::Buttons ();
	Interfaz::Form (Page. "TrialBalanceBalanceResults.php");
	Interfaz::NavigationButton (_("Back"), Page. "TrialBalanceCriterias.php", "Back");

	Interfaz::FileType('Excel');
	Interfaz::SubmitButton(_("Print"));

	Interfaz::CloseButtons ();
	Interfaz::Send(Interfaz::Data());
	Interfaz::CloseForm ();
	
//	echo "Ledger<BR/>";
	
//	Interfaz::TrialBalance (Interfaz::Data(), $table, $total);

	Interfaz::Form (Page. "TrialBalanceCriterias.php", "Back");
	Interfaz::Send (Interfaz::RecordedData());
	Interfaz::CloseForm ();

	Interfaz::TrialBalanceHeader ($header,$headerDetails);

	$accumulatedDebt = 0;
	$accumulatedCredit = 0;
	$accumulatedDebtBalance = 0;
	$accumulatedCreditBalance = 0;

	foreach ($classDetails as $class => $classData) {
		if (isset($SubaccountBalances) || isset($AccountsBalance))
		foreach ($accountsBalance[$class] as $account => $accountData) {
			if (isset($AccountsBalance))
				Interfaz::RowTrialBalance($accountData,$accountsDetails[$account], FALSE, 
					$accumulatedDebt, $accumulatedCredit, $accumulatedDebtBalance, $accumulatedCreditBalance);
			if (isset($SubaccountBalances) && isset($subAccountsBalance[$account]))
				foreach ($subAccountsBalance[$account] as $subaccount => $subaccountData) {
					Interfaz::RowTrialBalance($subaccountData, $subaccountsDetails[$subaccount], FALSE, 
						$accumulatedDebt, $accumulatedCredit, $accumulatedDebtBalance, $accumulatedCreditBalance);
				}
		}
		if (isset($Balanceclasses))
			Interfaz::RowTrialBalance ($classBalance[$class], $classDetails[$class], FALSE, 
				$accumulatedDebt, $accumulatedCredit, $accumulatedDebtBalance, $accumulatedCreditBalance);
	}
	Interfaz::CloseTrialBalance($accumulatedDebt, $accumulatedCredit, $accumulatedDebtBalance, $accumulatedCreditBalance);

}
else {
	Interfaz::Form (Page. "TrialBalanceCriterias.php", "Back");
	Interfaz::Buttons ();
	Interfaz::Send (Interfaz::RecordedData());
	Interfaz::SubmitButton(_("Back"));
	Interfaz::CloseForm ();
	Interfaz::CloseButtons ();

	$error = Interfaz::Error();	
	echo _("THERE IS AN ERROR") . ": " . _($error);

}
	Interfaz::End();
?>